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MODULE INSOLDCMD 
; Version: *v04-000' 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
.* ALL RIGHTS RESERVED. * 
'® * 
't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND goptee * 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
‘f ® 
fe phe at re IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
Hil SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
‘e ® 
't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR neers OF ITS * 
+ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
L * 
'e * 
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MODIFICATION HISTORY 


v03-003 MSHO0061 Michael S. Harvey 55-Jul-1984 
Add EXECUTE_ONLY qualitier. 
v03-002 BLS0256 Benn Schreiber 27-Dec-1983 


Make P1 a SINF so that uic format directories are legal. 


v03-001 RPGO001 Bob Gro 13-Sep-1983 


' 
' 
' 
' 
' 
' 
Put yg ey B gee ee rules here rather than in code. 
' 
' 
Support /NOPURGE with old” interface. 


define verb install 2 
ROUTINE INSTALL START ! Feed this ahiing a routine name 
parameter p1,label=file _spec, prompt=""INSTALL>"’, value(type=$infile) 
qualifier elp 
qualifier exit 


qualifier create 
qualifier delete 
qualifier replace 


qualifier List, value(type=$out file) 
qualifier full, value(type=Sout file) 
qualifier global 
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qualifier open 
qualifier shared 
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er header_residen 

er priviléged, value (List) 
er protected 

er writeable 

er nopurge 

er execute_only 


ow not file_spec and (List or global or full) and (delete 
or replace) 


66 disallow r Ae preg and not file_spec 

67 disallow delete and (replace or creat 

68 disallow (list or global or full) ond lenus or header_resident 

69 or privileged or writeable 

70 or create or nopurge or replace 

7) . or execute_only 

7 disallow replace and (open or header_resident or privileged or 

7 writeable or create or nopurge or execute_only) 


$ SET COMMAND SRC$: INSOLDCMD/OBJECT=0BJ$: INSOLDCMD/LISTING=L1S$:INSOLDCMD 
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